home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / generic / zip.tex < prev   
Encoding:
Text File  |  1992-08-26  |  2.9 KB  |  89 lines
  1. % zip.tex
  2. % 
  3. % J. Daniel Smith
  4. % 24 May 1990
  5. %
  6. % Modified from a STY file snarfed from someplace else.  But I don't
  7. % remember where the original code came from...  OOPS!!!
  8. %
  9. % Make a barcode for a ZIP code!
  10. %
  11. % Example usage is below.
  12. %
  13. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  14. \catcode`@=11    % letter
  15. %
  16. % Dimensions of bars to be used in the barcode
  17. \newdimen\b@rwidth \newdimen\b@rlong \newdimen\b@rshort \newdimen\b@rsep
  18. \b@rwidth=0.02true in \b@rlong=0.125true in \b@rshort=0.05true in
  19. \b@rsep=0.0275true in
  20. \def\sb@r{\vrule height\b@rshort width\b@rwidth depth0pt \kern\b@rsep}
  21. \def\lb@r{\vrule height\b@rlong width\b@rwidth depth0pt \kern\b@rsep}
  22.  
  23. % The barcodes for each digit
  24. \def\zerob@r{\lb@r\lb@r\sb@r\sb@r\sb@r}
  25. \def\oneb@r{\sb@r\sb@r\sb@r\lb@r\lb@r}
  26. \def\twob@r{\sb@r\sb@r\lb@r\sb@r\lb@r}
  27. \def\threeb@r{\sb@r\sb@r\lb@r\lb@r\sb@r}
  28. \def\fourb@r{\sb@r\lb@r\sb@r\sb@r\lb@r}
  29. \def\fiveb@r{\sb@r\lb@r\sb@r\lb@r\sb@r}
  30. \def\sixb@r{\sb@r\lb@r\lb@r\sb@r\sb@r}
  31. \def\sevenb@r{\lb@r\sb@r\sb@r\sb@r\lb@r}
  32. \def\eightb@r{\lb@r\sb@r\sb@r\lb@r\sb@r}
  33. \def\nineb@r{\lb@r\sb@r\lb@r\sb@r\sb@r}
  34.  
  35. \newcount\zipb@rm
  36. \newcount\zipb@rn
  37. \chardef\ten=10
  38.  
  39. %Almost like using \ifcase... except `-' is ignored.
  40. \def\zipb@r@@@#1#2{\expandafter\def\csname zipb@r@@#1\endcsname%
  41.                    {#2\advance\zipb@rn#1\relax}}
  42.  
  43. \newbox\zipbarcode
  44. \zipb@r@@@0{\global\setbox\zipbarcode\hbox{\box\zipbarcode\zerob@r}}
  45. \zipb@r@@@1{\global\setbox\zipbarcode\hbox{\box\zipbarcode\oneb@r}}
  46. \zipb@r@@@2{\global\setbox\zipbarcode\hbox{\box\zipbarcode\twob@r}}
  47. \zipb@r@@@3{\global\setbox\zipbarcode\hbox{\box\zipbarcode\threeb@r}}
  48. \zipb@r@@@4{\global\setbox\zipbarcode\hbox{\box\zipbarcode\fourb@r}}
  49. \zipb@r@@@5{\global\setbox\zipbarcode\hbox{\box\zipbarcode\fiveb@r}}
  50. \zipb@r@@@6{\global\setbox\zipbarcode\hbox{\box\zipbarcode\sixb@r}}
  51. \zipb@r@@@7{\global\setbox\zipbarcode\hbox{\box\zipbarcode\sevenb@r}}
  52. \zipb@r@@@8{\global\setbox\zipbarcode\hbox{\box\zipbarcode\eightb@r}}
  53. \zipb@r@@@9{\global\setbox\zipbarcode\hbox{\box\zipbarcode\nineb@r}}
  54.  
  55. \def\zipb@r@@#1{\csname zipb@r@@#1\endcsname}
  56.  
  57. \def\zipb@r@#1{\ifx#1\null
  58.                  \let\next\relax
  59.             \else
  60.            \zipb@r@@{#1}#1%
  61.                 \let\next\zipb@r@
  62.             \fi
  63.             \next}
  64.  
  65. \def\zipbar#1{\setbox\zipbarcode=\null
  66.  \hbox{ % put numbers in an \hbox
  67.    \global\setbox\zipbarcode\hbox{\box\zipbarcode\lb@r} % start with long bar
  68.    \zipb@rn\z@\zipb@r@#1\null
  69.    \zipb@rm\zipb@rn \divide\zipb@rm\ten \multiply\zipb@rm\ten
  70.    \advance\zipb@rm-\zipb@rn
  71.    \ifnum\zipb@rm<0
  72.     \advance\zipb@rm\ten
  73.    \fi
  74.    \zipb@r@@{\the\zipb@rm} % last digit, so that the sum is divisible by ten
  75.    \global\setbox\zipbarcode\hbox{\box\zipbarcode\lb@r}% end with a long bar
  76.    } % end of \hbox
  77. }
  78.  
  79. \catcode`@=12  % disable private sequences
  80. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  81. %
  82. %\zipbar{1234567890}
  83. %
  84. %\zipbar{48837}
  85. %
  86. %\zipbar{78653--0102}
  87. %\bye
  88. \endinput
  89.